home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / eastregg.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-09-15  |  1.0 KB  |  54 lines
  1. 10  KEY OFF:CLS
  2. 20  SCREEN 1:LOCATE 6,12
  3. 30  PRINT "EASTER EGG"
  4. 40  FOR DELAY = 0 TO 1000
  5. 50   NEXT DELAY
  6. 60   CLS
  7. 70   PI=3.14159
  8. 80   COLOR 8,1,0
  9. 90   F=160:G=100:F1=160:G1=105
  10. 100  FOR G=60 TO 100 STEP 5
  11. 120  FOR Y=0 TO 50:NEXT Y
  12. 130  CIRCLE (F,G),50,0,,,7/12
  13. 140  NEXT G
  14. 150  FOR T=0 TO 15
  15. 160  CIRCLE (F,G),50,3,PI/2,3*PI/2,7/12
  16. 170  CIRCLE (F1,G1),50,3,3*PI/2,PI/2,7/12
  17. 180  LINE (F-50,G)-(F,G)
  18. 190  LINE (F1,G1)-(F1+50,G1)
  19. 200  LINE (F,76)-(F,134)
  20. 210  LINE (F1,76)-(F1,134)
  21. 220  LINE (F-10,G-10)-(F,G),,B
  22. 230  LINE (F1+10,G1+10)-(F1,G1),,B
  23. 240  PAINT (F-5,G-5),1,3
  24. 250  PAINT (F1+5,G1+5),2,3
  25. 260  PAINT (F-12,G-12),2,3
  26. 270  PAINT (F1+12,G1+12),1,3
  27. 280  PAINT (F-5,G+5),3,3
  28. 290  PAINT (F1+5,G1-5),3,3
  29. 300  IF T=0 THEN 530
  30. 310  IF T>11 THEN 350
  31. 320  F=F-4:F1=F1+4
  32. 330  CLS
  33. 340  NEXT T
  34. 350  CIRCLE (160,100),30,3,1.3*PI/2,PI/4,5/6
  35. 360  CIRCLE (165,70),20
  36. 370  LINE (170,70)-(190,74)
  37. 380  LINE -(178,69)
  38. 390  LINE -(191,65)
  39. 400  LINE -(172,68)
  40. 410  LINE (190,74)-(172,73)
  41. 420  LINE (191,65)-(173,66)
  42. 430  CIRCLE (155,65),3,2,,,5/6
  43. 440  CIRCLE (165,60),3,2,,,5/6
  44. 450  LINE (175,115)-(190,120)
  45. 460  LINE -(195,118)
  46. 470  LINE (196,122)-(190,120)
  47. 480  LINE -(191,127)
  48. 490  LINE (187,105)-(F1,105)
  49. 500  LOCATE 6,24
  50. 510  PRINT "HAPPY EASTER!!!"
  51. 520  GOTO 520
  52. 530  LOCATE 6,26
  53. 540  PRINT 
  54.